home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS210.dsk / TIMEQZ.BAK.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  32 lines
  1. 1  POKE  -16304,0: POKE  -16297,0: POKE  -16302,0
  2. 5  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>       <CTRL-M>*** <CTRL-J>
  3. 10  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>        <CTRL-M>*** DEFINE<CTRL-J>
  4. 20 Q$ =  CHR$(34):D$ =  CHR$(4):CL% = 948:KY% = 962:HI% = 772:TE% = 781:UN% = 25345:X% = 768:Y% = 769: DEF  FN C(QZ) =  INT(QZ/2) - INT( LEN(A$)/2): CALL HI%: PRINT D$"BRUNINPUT"
  5. 30 OP$ = "OPEN":WR$ = "WRITE":RE$ = "READ":CL$ = "CLOSE":F$ = "RTQ" + STR$( PEEK(768)) +".MW": POKE 768,0: POKE 769,0: PRINT "(LOADING)": HOME 
  6. 40  CALL TE%:A$ = "GUEST REGISTER": PRINT D$OP$A$: PRINT D$RE$A$: INPUT BVG%: INPUT FI$: INPUT LA$: INPUT FI$: PRINT D$CL$
  7. 50  PRINT D$OP$F$: PRINT D$RE$F$: INPUT NQ: DIM Q$(NQ),A$(NQ),B$(NQ),C$(NQ),AN(NQ): INPUT NR: INPUT PA$: INPUT FA$: INPUT I$
  8. 60  FOR I = 1 TO NQ:Q$ = ""
  9. 70  & A$: IF A$ = ""  THEN 90
  10. 80 Q$ = Q$ +A$ + CHR$(13): GOTO 70
  11. 90 Q$(I) = Q$: INPUT A$(I): INPUT B$(I): INPUT C$(I): INPUT AN(I)
  12. 100  IF I < >NQ  THEN  INPUT I$
  13. 110  NEXT : PRINT D$CL$: CALL HI%
  14. 120 R% = 0: FOR I = 1 TO NQ:T% = 0
  15. 130  HGR : POKE  -16302,0: HCOLOR= 6: FOR Y = 2 TO 4: HPLOT 0,Y TO 279,Y: NEXT :A$ = " QUIZ ": POKE X%, FN C(40): POKE Y%,0: PRINT A$: POKE X%,0: POKE Y%,20: PRINT Q$(I)
  16. 135  FOR Y = 189 TO 191: HPLOT 0,Y TO 279,Y: NEXT 
  17. 140  POKE Y%,70:Y(1) =  PEEK(Y%): PRINT "   A) "A$(I): PRINT :Y(2) =  PEEK(Y%): PRINT "   B) "B$(I): PRINT :Y(3) =  PEEK(Y%): PRINT "   C) "C$(I)
  18. 150  FOR Y = 160 TO 162: HPLOT 0,Y TO 279,Y: NEXT :A$ = FI$ +",": POKE X%, FN C(40): POKE Y%,168: PRINT A$
  19. 160 A$ = "Press the appropiate letter.": POKE X%, FN C(40): PRINT A$
  20. 170  CALL KY%:K =  PEEK( -16384) -128:K = K -64: IF K <1  OR K >3  THEN 170
  21. 175  HCOLOR= 5: IF K = AN(I)  THEN  HCOLOR= 1
  22. 180  FOR Y = Y(K) TO Y(K) +6: HPLOT 3,Y TO 12,Y: NEXT 
  23. 190  IF K = AN(I)  THEN 240
  24. 200  IF T% = 0  THEN  POKE Y%,168 +8: POKE X%,0: PRINT  SPC( 39);:A$ = "Sorry, no. Please try again.": POKE X%, FN C(40): PRINT A$: HCOLOR= 0: FOR Y = Y(K) TO Y(K) +6: HPLOT 3,Y TO 12,Y: NEXT :T% = 1: GOTO 170
  25. 210  POKE Y%,168 +8: POKE X%,0: PRINT  SPC( 39);:A$ = "The correct answer was...": POKE X%, FN C(40): PRINT A$:J = AN(I):
  26. 220  HCOLOR= 0: FOR Y = Y(K) TO Y(K) +6: HPLOT 3,Y TO 12,Y: NEXT :K = J: HCOLOR= 1: FOR Y = Y(K) TO Y(K) +6: HPLOT 3,Y TO 12,Y: NEXT 
  27. 230  GOTO 250
  28. 240  POKE Y%,168 +8: POKE X%,0: PRINT  SPC( 39);:A$ = "That's right!": POKE X%, FN C(40): PRINT A$:R% = R% +1
  29. 250  CALL KY%: NEXT I
  30. 255  POKE 767,R%
  31. 260  PRINT : IF R% > = NR  THEN  PRINT D$"RUN"PA$
  32. 270  PRINT D$"RUN"FA$